home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AmigActive 10
/
AACD 10.iso
/
AACD
/
Games
/
MAME
/
src
/
vidhrdw
/
cninja.c
< prev
next >
Wrap
C/C++ Source or Header
|
2000-04-08
|
17KB
|
603 lines
/***************************************************************************
Caveman Ninja Video emulation - Bryan McPhail, mish@tendril.co.uk
****************************************************************************
Data East custom chip 55: Generates two playfields, playfield 1 is underneath
playfield 2. Caveman Ninja uses two of these chips.
16 bytes of control registers per chip.
Word 0:
Mask 0x0080: Flip screen
Mask 0x007f: ?
Word 2:
Mask 0xffff: Playfield 2 X scroll (top playfield)
Word 4:
Mask 0xffff: Playfield 2 Y scroll (top playfield)
Word 6:
Mask 0xffff: Playfield 1 X scroll (bottom playfield)
Word 8:
Mask 0xffff: Playfield 1 Y scroll (bottom playfield)
Word 0xa:
Mask 0xc000: Playfield 1 shape??
Mask 0x3800: Playfield 1 rowscroll style
Mask 0x0700: Playfield 1 colscroll style
Mask 0x00c0: Playfield 2 shape??
Mask 0x0038: Playfield 2 rowscroll style
Mask 0x0007: Playfield 2 colscroll style
Word 0xc:
Mask 0x8000: Playfield 1 is 8*8 tiles else 16*16
Mask 0x4000: Playfield 1 rowscroll enabled
Mask 0x2000: Playfield 1 colscroll enabled
Mask 0x1f00: ?
Mask 0x0080: Playfield 2 is 8*8 tiles else 16*16
Mask 0x0040: Playfield 2 rowscroll enabled
Mask 0x0020: Playfield 2 colscroll enabled
Mask 0x001f: ?
Word 0xe:
??
Colscroll style:
0 64 columns across bitmap
1 32 columns across bitmap
Rowscroll style:
0 512 rows across bitmap
Locations 0 & 0xe are mostly unknown:
0 14
Caveman Ninja (bottom): 0053 1100 (see below)
Caveman Ninja (top): 0010 0081
Two Crude (bottom): 0053 0000
Two Crude (top): 0010 0041
Dark Seal (bottom): 0010 0000
Dark Seal (top): 0053 4101
Tumblepop: 0010 0000
Super Burger Time: 0010 0000
Location 14 in Cninja (bottom):
1100 = pf2 uses graphics rom 1, pf3 uses graphics rom 2
0000 = pf2 uses graphics rom 2, pf3 uses graphics rom 2
1111 = pf2 uses graphics rom 1, pf3 uses graphics rom 1
**************************************************************************
Sprites - Data East custom chip 52
8 bytes per sprite, unknowns bits seem unused.
Word 0:
Mask 0x8000 - ?
Mask 0x4000 - Y flip
Mask 0x2000 - X flip
Mask 0x1000 - Sprite flash
Mask 0x0800 - ?
Mask 0x0600 - Sprite height (1x, 2x, 4x, 8x)
Mask 0x01ff - Y coordinate
Word 2:
Mask 0xffff - Sprite number
Word 4:
Mask 0x8000 - ?
Mask 0x4000 - Sprite is drawn beneath top 8 pens of playfield 4
Mask 0x3e00 - Colour (32 palettes, most games only use 16)
Mask 0x01ff - X coordinate
Word 6:
Always unused.
***************************************************************************/
#include "driver.h"
#include "vidhrdw/generic.h"
unsigned char *cninja_pf1_data,*cninja_pf2_data;
unsigned char *cninja_pf3_data,*cninja_pf4_data;
unsigned char *cninja_pf1_rowscroll,*cninja_pf2_rowscroll;
unsigned char *cninja_pf3_rowscroll,*cninja_pf4_rowscroll;
static struct tilemap *pf1_tilemap,*pf2_tilemap,*pf3_tilemap,*pf4_tilemap;
static unsigned char *gfx_base;
static int gfx_bank;
static unsigned char cninja_control_0[16];
static unsigned char cninja_control_1[16];
static int cninja_pf2_bank,cninja_pf3_bank;
static int bootleg,spritemask,color_base,flipscreen;
/* Function for all 16x16 1024x512 layers */
static UINT32 back_scan(UINT32 col,UINT32 row,UINT32 num_cols,UINT32 num_rows)
{
/* logical (col,row) -> memory offset */
return (col & 0x1f) + ((row & 0x1f) << 5) + ((col & 0x20) << 5);
}
static void get_back_tile_info(int tile_index)
{
int tile,color;
tile=READ_WORD(&gfx_base[2*tile_index]);
color=tile >> 12;
tile=tile&0xfff;
SET_TILE_INFO(gfx_bank,tile,color+color_base)
}
/* 8x8 top layer */
static void get_fore_tile_info(int tile_index)
{
int tile=READ_WORD(&cninja_pf1_data[2*tile_index]);
int color=tile >> 12;
tile=tile&0xfff;
SET_TILE_INFO(0,tile,color)
}
/******************************************************************************/
static int common_vh_start(void)
{
cninja_pf2_bank=1;
cninja_pf3_bank=2;
pf2_tilemap = tilemap_create(get_back_tile_info,back_scan,TILEMAP_OPAQUE,16,16,64,32);
pf3_tilemap = tilemap_create(get_back_tile_info,back_scan,TILEMAP_TRANSPARENT,16,16,64,32);
pf4_tilemap = tilemap_create(get_back_tile_info,back_scan,TILEMAP_TRANSPARENT | TILEMAP_SPLIT,16,16,64,32);
pf1_tilemap = tilemap_create(get_fore_tile_info,tilemap_scan_rows,TILEMAP_TRANSPARENT,8,8,64,32);
if (!pf1_tilemap || !pf2_tilemap || !pf3_tilemap || !pf4_tilemap)
return 1;
pf1_tilemap->transparent_pen = 0;
pf3_tilemap->transparent_pen = 0;
pf4_tilemap->transparent_pen = 0;
pf4_tilemap->transmask[0] = 0x00ff;
pf4_tilemap->transmask[1] = 0xff00;
return 0;
}
int cninja_vh_start(void)
{
spritemask=0x3fff;
bootleg=0;
return common_vh_start();
}
int stoneage_vh_start(void)
{
spritemask=0x3fff;
bootleg=1; /* The bootleg has broken scroll registers */
return common_vh_start();
}
int edrandy_vh_start(void)
{
spritemask=0xffff;
bootleg=0;
return common_vh_start();
}
/******************************************************************************/
WRITE_HANDLER( cninja_pf1_data_w )
{
COMBINE_WORD_MEM(&cninja_pf1_data[offset],data);
tilemap_mark_tile_dirty(pf1_tilemap,offset/2);
}
WRITE_HANDLER( cninja_pf2_data_w )
{
COMBINE_WORD_MEM(&cninja_pf2_data[offset],data);
tilemap_mark_tile_dirty(pf2_tilemap,offset/2);
}
WRITE_HANDLER( cninja_pf3_data_w )
{
COMBINE_WORD_MEM(&cninja_pf3_data[offset],data);
tilemap_mark_tile_dirty(pf3_tilemap,offset/2);
}
WRITE_HANDLER( cninja_pf4_data_w )
{
COMBINE_WORD_MEM(&cninja_pf4_data[offset],data);
tilemap_mark_tile_dirty(pf4_tilemap,offset/2);
}
WRITE_HANDLER( cninja_control_0_w )
{
if (bootleg && offset==6) {
COMBINE_WORD_MEM(&cninja_control_0[offset],data+0xa);
return;
}
COMBINE_WORD_MEM(&cninja_control_0[offset],data);
}
WRITE_HANDLER( cninja_control_1_w )
{
if (bootleg) {
switch (offset) {
case 2:
COMBINE_WORD_MEM(&cninja_control_1[offset],data-2);
return;
case 6:
COMBINE_WORD_MEM(&cninja_control_1[offset],data+0xa);
return;
}
}
COMBINE_WORD_MEM(&cninja_control_1[offset],data);
}
READ_HANDLER( cninja_pf1_data_r )
{
return READ_WORD(&cninja_pf1_data[offset]);
}
WRITE_HANDLER( cninja_pf1_rowscroll_w )
{
COMBINE_WORD_MEM(&cninja_pf1_rowscroll[offset],data);
}
WRITE_HANDLER( cninja_pf2_rowscroll_w )
{
COMBINE_WORD_MEM(&cninja_pf2_rowscroll[offset],data);
}
WRITE_HANDLER( cninja_pf3_rowscroll_w )
{
COMBINE_WORD_MEM(&cninja_pf3_rowscroll[offset],data);
}
READ_HANDLER( cninja_pf3_rowscroll_r )
{
return READ_WORD(&cninja_pf3_rowscroll[offset]);
}
WRITE_HANDLER( cninja_pf4_rowscroll_w )
{
COMBINE_WORD_MEM(&cninja_pf4_rowscroll[offset],data);
}
/******************************************************************************/
WRITE_HANDLER( cninja_palette_24bit_w )
{
int r,g,b;
COMBINE_WORD_MEM(&paletteram[offset],data);
if (offset%4) offset-=2;
b = (READ_WORD(&paletteram[offset]) >> 0) & 0xff;
g = (READ_WORD(&paletteram[offset+2]) >> 8) & 0xff;
r = (READ_WORD(&paletteram[offset+2]) >> 0) & 0xff;
palette_change_color(offset / 4,r,g,b);
}
/******************************************************************************/
static void mark_sprites_colors(void)
{
int offs,color,i,pal_base;
int colmask[16];
unsigned int *pen_usage; /* Save some struct derefs */
/* Sprites */
pal_base = Machine->drv->gfxdecodeinfo[4].color_codes_start;
pen_usage=Machine->gfx[4]->pen_usage;
for (color = 0;color < 16;color++) colmask[color] = 0;
for (offs = 0;offs < 0x800;offs += 8)
{
int x,y,sprite,multi;
sprite = READ_WORD (&buffered_spriteram[offs+2]) & spritemask;
if (!sprite) continue;
x = READ_WORD(&buffered_spriteram[offs+4]);
y = READ_WORD(&buffered_spriteram[offs]);
color = (x >> 9) &0xf;
multi = (1 << ((y & 0x0600) >> 9)) - 1;
sprite &= ~multi;
/* Save palette by missing offscreen sprites */
x = x & 0x01ff;
y = y & 0x01ff;
if (x >= 256) x -= 512;
x = 240 - x;
if (x>256) continue;
while (multi >= 0)
{
colmask[color] |= pen_usage[sprite + multi];
multi--;
}
}
for (color = 0;color < 16;color++)
{
for (i = 1;i < 16;i++)
{
if (colmask[color] & (1 << i))
palette_used_colors[pal_base + 16 * color + i] = PALETTE_COLOR_USED;
}
}
}
static void cninja_drawsprites(struct osd_bitmap *bitmap, int pri)
{
int offs;
for (offs = 0;offs < 0x800;offs += 8)
{
int x,y,sprite,colour,multi,fx,fy,inc,flash,mult;
sprite = READ_WORD (&buffered_spriteram[offs+2]) & spritemask;
if (!sprite) continue;
x = READ_WORD(&buffered_spriteram[offs+4]);
/* Sprite/playfield priority */
if ((x&0x4000) && pri==1) continue;
if (!(x&0x4000) && pri==0) continue;
y = READ_WORD(&buffered_spriteram[offs]);
flash=y&0x1000;
if (flash && (cpu_getcurrentframe() & 1)) continue;
colour = (x >> 9) &0xf;
fx = y & 0x2000;
fy = y & 0x4000;
multi = (1 << ((y & 0x0600) >> 9)) - 1; /* 1x, 2x, 4x, 8x height */
x = x & 0x01ff;
y = y & 0x01ff;
if (x >= 256) x -= 512;
if (y >= 256) y -= 512;
x = 240 - x;
y = 240 - y;
if (x>256) continue; /* Speedup */
sprite &= ~multi;
if (fy)
inc = -1;
else
{
sprite += multi;
inc = 1;
}
if (flipscreen) {
y=240-y;
x=240-x;
if (fx) fx=0; else fx=1;
if (fy) fy=0; else fy=1;
mult=16;
}
else mult=-16;
while (multi >= 0)
{
drawgfx(bitmap,Machine->gfx[4],
sprite - multi * inc,
colour,
fx,fy,
x,y + mult * multi,
&Machine->drv->visible_area,TRANSPARENCY_PEN,0);
multi--;
}
}
}
/******************************************************************************/
void cninja_vh_screenrefresh(struct osd_bitmap *bitmap, int full_refresh)
{
int offs;
int pf23_control,pf1_control;
/* Update flipscreen */
flipscreen = READ_WORD(&cninja_control_1[0])&0x80;
tilemap_set_flip(ALL_TILEMAPS,flipscreen ? (TILEMAP_FLIPY | TILEMAP_FLIPX) : 0);
/* Handle gfx rom switching */
pf23_control=READ_WORD (&cninja_control_0[0xe]);
if ((pf23_control&0xff)==0x00)
cninja_pf3_bank=2;
else
cninja_pf3_bank=1;
if ((pf23_control&0xff00)==0x00)
cninja_pf2_bank=2;
else
cninja_pf2_bank=1;
/* Setup scrolling */
pf23_control=READ_WORD (&cninja_control_0[0xc]);
pf1_control=READ_WORD (&cninja_control_1[0xc]);
/* Background - Rowscroll enable */
if (pf23_control&0x4000) {
int scrollx=READ_WORD(&cninja_control_0[6]),rows;
tilemap_set_scroll_cols(pf2_tilemap,1);
tilemap_set_scrolly( pf2_tilemap,0, READ_WORD(&cninja_control_0[8]) );
/* Several different rowscroll styles! */
switch ((READ_WORD (&cninja_control_0[0xa])>>11)&7) {
case 0: rows=512; break;/* Every line of 512 height bitmap */
case 1: rows=256; break;
case 2: rows=128; break;
case 3: rows=64; break;
case 4: rows=32; break;
case 5: rows=16; break;
case 6: rows=8; break;
case 7: rows=4; break;
default: rows=1; break;
}
tilemap_set_scroll_rows(pf2_tilemap,rows);
for (offs = 0;offs < rows;offs++)
tilemap_set_scrollx( pf2_tilemap,offs, scrollx + READ_WORD(&cninja_pf2_rowscroll[2*offs]) );
}
else {
tilemap_set_scroll_rows(pf2_tilemap,1);
tilemap_set_scroll_cols(pf2_tilemap,1);
tilemap_set_scrollx( pf2_tilemap,0, READ_WORD(&cninja_control_0[6]) );
tilemap_set_scrolly( pf2_tilemap,0, READ_WORD(&cninja_control_0[8]) );
}
/* Playfield 3 */
if (pf23_control&0x40) { /* Rowscroll */
int scrollx=READ_WORD(&cninja_control_0[2]),rows;
tilemap_set_scroll_cols(pf3_tilemap,1);
tilemap_set_scrolly( pf3_tilemap,0, READ_WORD(&cninja_control_0[4]) );
/* Several different rowscroll styles! */
switch ((READ_WORD (&cninja_control_0[0xa])>>3)&7) {
case 0: rows=512; break;/* Every line of 512 height bitmap */
case 1: rows=256; break;
case 2: rows=128; break;
case 3: rows=64; break;
case 4: rows=32; break;
case 5: rows=16; break;
case 6: rows=8; break;
case 7: rows=4; break;
default: rows=1; break;
}
tilemap_set_scroll_rows(pf3_tilemap,rows);
for (offs = 0;offs < rows;offs++)
tilemap_set_scrollx( pf3_tilemap,offs, scrollx + READ_WORD(&cninja_pf3_rowscroll[2*offs]) );
}
else if (pf23_control&0x20) { /* Colscroll */
int scrolly=READ_WORD(&cninja_control_0[4]);
tilemap_set_scroll_rows(pf3_tilemap,1);
tilemap_set_scroll_cols(pf3_tilemap,64);
tilemap_set_scrollx( pf3_tilemap,0, READ_WORD(&cninja_control_0[2]) );
/* Used in lava level & Level 1 */
for (offs=0 ; offs < 32;offs++)
tilemap_set_scrolly( pf3_tilemap,offs+32, scrolly + READ_WORD(&cninja_pf3_rowscroll[(2*offs)+0x400]) );
}
else {
tilemap_set_scroll_rows(pf3_tilemap,1);
tilemap_set_scroll_cols(pf3_tilemap,1);
tilemap_set_scrollx( pf3_tilemap,0, READ_WORD(&cninja_control_0[2]) );
tilemap_set_scrolly( pf3_tilemap,0, READ_WORD(&cninja_control_0[4]) );
}
/* Top foreground */
if (pf1_control&0x4000) {
int scrollx=READ_WORD(&cninja_control_1[6]),rows;
tilemap_set_scroll_cols(pf4_tilemap,1);
tilemap_set_scrolly( pf4_tilemap,0, READ_WORD(&cninja_control_1[8]) );
/* Several different rowscroll styles! */
switch ((READ_WORD (&cninja_control_1[0xa])>>11)&7) {
case 0: rows=512; break;/* Every line of 512 height bitmap */
case 1: rows=256; break;
case 2: rows=128; break;
case 3: rows=64; break;
case 4: rows=32; break;
case 5: rows=16; break;
case 6: rows=8; break;
case 7: rows=4; break;
default: rows=1; break;
}
tilemap_set_scroll_rows(pf4_tilemap,rows);
for (offs = 0;offs < rows;offs++)
tilemap_set_scrollx( pf4_tilemap,offs, scrollx + READ_WORD(&cninja_pf4_rowscroll[2*offs]) );
}
else if (pf1_control&0x2000) { /* Colscroll */
int scrolly=READ_WORD(&cninja_control_1[8]);
tilemap_set_scroll_rows(pf4_tilemap,1);
tilemap_set_scroll_cols(pf4_tilemap,64);
tilemap_set_scrollx( pf4_tilemap,0, READ_WORD(&cninja_control_0[2]) );
/* Used in first lava level */
for (offs=0 ; offs < 64;offs++)
tilemap_set_scrolly( pf4_tilemap,offs, scrolly + READ_WORD(&cninja_pf4_rowscroll[(2*offs)+0x400]) );
}
else {
tilemap_set_scroll_rows(pf4_tilemap,1);
tilemap_set_scroll_cols(pf4_tilemap,1);
tilemap_set_scrollx( pf4_tilemap,0, READ_WORD(&cninja_control_1[6]) );
tilemap_set_scrolly( pf4_tilemap,0, READ_WORD(&cninja_control_1[8]) );
}
/* Playfield 1 - 8 * 8 Text */
if (pf1_control&0x40) { /* Rowscroll */
int scrollx=READ_WORD(&cninja_control_1[2]),rows;
tilemap_set_scroll_cols(pf1_tilemap,1);
tilemap_set_scrolly( pf1_tilemap,0, READ_WORD(&cninja_control_1[4]) );
/* Several different rowscroll styles! */
switch ((READ_WORD (&cninja_control_1[0xa])>>3)&7) {
case 0: rows=256; break;
case 1: rows=128; break;
case 2: rows=64; break;
case 3: rows=32; break;
case 4: rows=16; break;
case 5: rows=8; break;
case 6: rows=4; break;
case 7: rows=2; break;
default: rows=1; break;
}
tilemap_set_scroll_rows(pf1_tilemap,rows);
for (offs = 0;offs < rows;offs++)
tilemap_set_scrollx( pf1_tilemap,offs, scrollx + READ_WORD(&cninja_pf1_rowscroll[2*offs]) );
}
else {
tilemap_set_scroll_rows(pf1_tilemap,1);
tilemap_set_scroll_cols(pf1_tilemap,1);
tilemap_set_scrollx( pf1_tilemap,0, READ_WORD(&cninja_control_1[2]) );
tilemap_set_scrolly( pf1_tilemap,0, READ_WORD(&cninja_control_1[4]) );
}
/* Update playfields */
gfx_bank=cninja_pf2_bank;
gfx_base=cninja_pf2_data;
color_base=48;
tilemap_update(pf2_tilemap);
gfx_bank=cninja_pf3_bank;
gfx_base=cninja_pf3_data;
color_base=0;
tilemap_update(pf3_tilemap);
gfx_bank=3;
gfx_base=cninja_pf4_data;
color_base=0;
tilemap_update(pf4_tilemap);
tilemap_update(pf1_tilemap);
palette_init_used_colors();
mark_sprites_colors();
if (palette_recalc())
tilemap_mark_all_pixels_dirty(ALL_TILEMAPS);
/* Draw playfields */
tilemap_render(ALL_TILEMAPS);
tilemap_draw(bitmap,pf2_tilemap,0);
tilemap_draw(bitmap,pf3_tilemap,0);
tilemap_draw(bitmap,pf4_tilemap,TILEMAP_BACK);
cninja_drawsprites(bitmap,0);
tilemap_draw(bitmap,pf4_tilemap,TILEMAP_FRONT);
cninja_drawsprites(bitmap,1);
tilemap_draw(bitmap,pf1_tilemap,0);
}